home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh5x / sh57a.d64 / tiny.demo 3 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  810b  |  59 lines
  1. 10 ; HIRES PLOT DEMO FUER TINYCOMPILER
  2. 20 ; FUNKTION DEFINIEREN:
  3. 30 ; AB ZEILE 63005 - Z. 63010
  4. 40 ; SKALIERUNG: Z. 63020
  5. 50 ; AM ENDE TASTE DRUECKEN !
  6. 60000 POKE53265,59
  7. 60010 POKE53272,24
  8. 60011 LETN=256
  9. 60012 LETP=703
  10. 60013 LETP=P+1
  11. 60014 IFN=1THEN60020
  12. 60015 LETN=N/2
  13. 60016 POKEP,N
  14. 60017 GOTO60013
  15. 60020 LETI=1024
  16. 60030 POKEI,1
  17. 60040 LETI=I+1
  18. 60050 IFI<2024THEN60030
  19. 60060 LETI=8192
  20. 60070 POKEI,0
  21. 60075 LETI=I+1
  22. 60080 IFI<16384THEN60070
  23. 60090 GOTO63000
  24. 61000 LETW=Y/8
  25. 61010 LETV=X/8
  26. 61020 LETH=W*40
  27. 61030 LETH=H+V
  28. 61040 LETH=H*8
  29. 61050 LETH=H+8192
  30. 61060 LETG=W*8
  31. 61070 LETG=Y-G
  32. 61080 LETP=H+G
  33. 61100 IFP>16384THEN61170
  34. 61110 IFP<8192THEN61170
  35. 61115 LETB=X/8
  36. 61120 LETB=B*8
  37. 61130 LETB=X-B
  38. 61140 LETQ=704+B
  39. 61150 LETQ=PEEK(Q)
  40. 61160 POKEP,Q
  41. 61170 RETURN
  42. 63000 LETX=0
  43. 63001 ;
  44. 63005 LETY=X*X
  45. 63010 LETY=X+Y
  46. 63015 ;             FUNKTION: Y=X^2 + X
  47. 63020 LETY=Y/200
  48. 63030 GOSUB61000
  49. 63040 LETX=X+1
  50. 63050 IFX<320THEN63005
  51. 63900 LETQ=PEEK(203)
  52. 63905 LETZ=Z+1
  53. 63908 POKE53280,Z
  54. 63910 IFQ=64THEN63900
  55. 63940 POKE53272,21
  56. 63950 POKE53265,27
  57. 63960 PRINT"[147]";
  58. 63999 END
  59.